﻿Imports System.Reflection

''' <summary>
''' ハードコード値属性
''' </summary>
''' <remarks>
''' パラメータではなく命令をハードコードする場合の属性
''' </remarks>
<AttributeUsage(AttributeTargets.Class Or AttributeTargets.Property, Allowmultiple:=False)>
Public NotInheritable Class HardCodeValueAttribute
    Inherits SpecialValueAttribute

    Public Sub New(hardCode As String)
        _hardCode = hardCode
    End Sub

    Private _hardCode As String
    ''' <summary>
    ''' ハードコード
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Overrides ReadOnly Property HardCode As String
        Get
            Return _hardCode
        End Get
    End Property
    ''' <summary>
    ''' ハードコードかどうか示します
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Overrides ReadOnly Property IsHardCode As Boolean
        Get
            Return True
        End Get
    End Property
End Class
